home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / 146.spr < prev    next >
Encoding:
Text File  |  1994-08-11  |  6.4 KB  |  183 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/11/94               146.SPR                 22:10:43 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc                          
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsh1bjb8x")
  42.     DEFINE WINDOW _qsh1bjb8x ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 29.846,58.800 ;
  45.         TITLE "Thermometers" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsh1bjb8x CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *                146/Windows Screen Layout                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. IF WVISIBLE("_qsh1bjb8x")
  64.     ACTIVATE WINDOW _qsh1bjb8x SAME
  65. ELSE
  66.     ACTIVATE WINDOW _qsh1bjb8x NOSHOW
  67. ENDIF
  68. @ 0.077,0.000 SAY (LOCFILE("bmp\146.bmp","BMP|ICO|PCT|ICN", "Where is 146?" )) BITMAP ;
  69.     SIZE 29.462,57.600 ;
  70.     ISOMETRIC ;
  71.     STYLE "T"
  72. @ 1.154,1.400 GET abc ;
  73.     PICTURE "@*IHN " ;
  74.     SIZE 6.385,26.200,0.800 ;
  75.     DEFAULT 0 ;
  76.     FONT "MS Sans Serif", 8 ;
  77.     VALID _qsh1bjbzn()
  78. @ 7.385,1.800 GET abc ;
  79.     PICTURE "@*IHN " ;
  80.     SIZE 7.231,26.000,0.800 ;
  81.     DEFAULT 0 ;
  82.     FONT "MS Sans Serif", 8 ;
  83.     VALID _qsh1bjc5a()
  84. @ 14.769,1.400 GET abc ;
  85.     PICTURE "@*IHN " ;
  86.     SIZE 6.846,26.800,0.800 ;
  87.     DEFAULT 0 ;
  88.     FONT "MS Sans Serif", 8 ;
  89.     VALID _qsh1bjcat()
  90.  
  91. IF NOT WVISIBLE("_qsh1bjb8x")
  92.     ACTIVATE WINDOW _qsh1bjb8x
  93. ENDIF
  94.  
  95. READ CYCLE ;
  96.     DEACTIVATE .T.
  97.  
  98. RELEASE WINDOW _qsh1bjb8x
  99.  
  100. #REGION 0
  101.  
  102. SET READBORDER &rborder
  103.  
  104. IF m.talkstat = "ON"
  105.     SET TALK ON
  106. ENDIF
  107. IF m.compstat = "ON"
  108.     SET COMPATIBLE ON
  109. ENDIF
  110.  
  111.  
  112.  
  113. *       *********************************************************
  114. *       *                                                         
  115. *       *    146/Windows Supporting Procedures and Functions      
  116. *       *                                                         
  117. *       *********************************************************
  118. *
  119.  
  120. #REGION 1
  121. FUNCTION EXIT
  122. CLOSE DATABASES
  123. RETURN .T.
  124.  
  125. *       *********************************************************
  126. *       *                                                         
  127. *       * _QSH1BJBZN           abc VALID                          
  128. *       *                                                         
  129. *       * Function Origin:                                        
  130. *       *                                                         
  131. *       * From Platform:       Windows                            
  132. *       * From Screen:         146,     Record Number:    3       
  133. *       * Variable:            abc                                
  134. *       * Called By:           VALID Clause                       
  135. *       * Snippet Number:      1                                  
  136. *       *                                                         
  137. *       *********************************************************
  138. *
  139. FUNCTION _qsh1bjbzn     &&  abc VALID
  140. #REGION 1
  141. USE CLOSEUP
  142. GO 952
  143. DO ZOOM.SPR
  144.  
  145. *       *********************************************************
  146. *       *                                                         
  147. *       * _QSH1BJC5A           abc VALID                          
  148. *       *                                                         
  149. *       * Function Origin:                                        
  150. *       *                                                         
  151. *       * From Platform:       Windows                            
  152. *       * From Screen:         146,     Record Number:    4       
  153. *       * Variable:            abc                                
  154. *       * Called By:           VALID Clause                       
  155. *       * Snippet Number:      2                                  
  156. *       *                                                         
  157. *       *********************************************************
  158. *
  159. FUNCTION _qsh1bjc5a     &&  abc VALID
  160. #REGION 1
  161. USE CLOSEUP
  162. GO 953
  163. DO ZOOM.SPR
  164.  
  165. *       *********************************************************
  166. *       *                                                         
  167. *       * _QSH1BJCAT           abc VALID                          
  168. *       *                                                         
  169. *       * Function Origin:                                        
  170. *       *                                                         
  171. *       * From Platform:       Windows                            
  172. *       * From Screen:         146,     Record Number:    5       
  173. *       * Variable:            abc                                
  174. *       * Called By:           VALID Clause                       
  175. *       * Snippet Number:      3                                  
  176. *       *                                                         
  177. *       *********************************************************
  178. *
  179. FUNCTION _qsh1bjcat     &&  abc VALID
  180. #REGION 1
  181. USE CLOSEUP
  182. GO 954
  183. DO ZOOM.SPR